object fCodeInside: TfCodeInside
Left = 219
Top = 183
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Insert new code inside object ...'
ClientHeight = 281
ClientWidth = 493
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object CodeMan: TSynEdit
Left = 0
Top = 41
Width = 493
Height = 217
Cursor = crIBeam
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 1
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Terminal'
Gutter.Font.Style = []
Gutter.Visible = False
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecLineBreak
ShortCut = 8205
end
item
Command = ecTab
ShortCut = 9
end
item
Command = ecShiftTab
ShortCut = 8201
end
item
Command = ecContextHelp
ShortCut = 16496
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = ecLineSelect
ShortCut = 24652
end
item
Command = ecMatchBracket
ShortCut = 24642
end>
Lines.Strings = (
'Fill in your code here ...')
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 493
Height = 41
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 4
Top = 3
Width = 19
Height = 12
Caption = 'Key'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Verdana'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 250
Top = 3
Width = 47
Height = 12
Caption = 'Comment'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Verdana'
Font.Style = [fsBold]
ParentFont = False
end
object Edit1: TEdit
Left = 3
Top = 17
Width = 241
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 249
Top = 17
Width = 241
Height = 21
TabOrder = 1
end
end
object Panel2: TPanel
Left = 0
Top = 258
Width = 493
Height = 23
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object Button1: TButton
Left = 205
Top = 2
Width = 84
Height = 19
Caption = 'Ok'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Verdana'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
end
object SynCssSyn1: TSynCssSyn
DefaultFilter = 'Cascading Stylesheets (*.css)|*.css'
CommentAttri.Foreground = clGray
IdentifierAttri.Foreground = clGreen
KeyAttri.Foreground = clNavy
NumberAttri.Foreground = clFuchsia
StringAttri.Foreground = clBlue
StringAttri.Style = [fsBold]
SymbolAttri.Foreground = clNavy
SymbolAttri.Style = [fsBold]
Left = 432
Top = 48
end
object SynHTMLSyn1: TSynHTMLSyn
DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html'
AndAttri.Foreground = 13351092
CommentAttri.Foreground = clGray
IdentifierAttri.Foreground = 6510397
KeyAttri.Foreground = 4194432
SpaceAttri.Foreground = clBlack
SymbolAttri.Foreground = clBlack
TextAttri.Foreground = clBlack
ValueAttri.Foreground = 10246192
Left = 432
Top = 96
end
object SynJScriptSyn1: TSynJScriptSyn
DefaultFilter = 'JavaScript files (*.js)|*.js'
CommentAttri.Foreground = clGray
IdentifierAttri.Foreground = clTeal
IdentifierAttri.Style = [fsBold]
KeyAttri.Foreground = clPurple
NumberAttri.Foreground = clRed
StringAttri.Foreground = clBlue
SymbolAttri.Foreground = clGreen
SymbolAttri.Style = [fsBold]
Left = 432
Top = 192
end
object SynMultiSyn1: TSynMultiSyn
Schemes = <
item
CaseSensitive = True
StartExpr = ''
Highlighter = SynCssSyn1
MarkerAttri.Background = clNone
MarkerAttri.Foreground = clPurple
MarkerAttri.Style = [fsBold]
SchemeName = 'CSS Full'
end
item
CaseSensitive = True
StartExpr = ''
Highlighter = SynCssSyn1
MarkerAttri.Background = clNone
MarkerAttri.Foreground = clFuchsia
MarkerAttri.Style = [fsBold]
SchemeName = 'CSS Style'
end
item
CaseSensitive = True
StartExpr = ''
Highlighter = SynJScriptSyn1
MarkerAttri.Background = clNone
MarkerAttri.Foreground = clMaroon
MarkerAttri.Style = [fsBold]
SchemeName = 'JS Full'
end
item
CaseSensitive = True
StartExpr = ''
Highlighter = SynJScriptSyn1
MarkerAttri.Background = clNone
MarkerAttri.Foreground = clRed
MarkerAttri.Style = [fsBold]
SchemeName = 'JS Script'
end>
DefaultHighlighter = SynHTMLSyn1
Left = 432
Top = 144
end
end